10 REM "VAULT OF TERROR" 20 REM BY CLEVELAND M. BLAKEMORE 30 REM (V4.8) 40 : 50 POKE53280,.:POKE53281,.:GOTO1780 60 REM WALLHANDLER 70 VL=FC:ONFC+1GOSUB720,720,820,850,870 80 RETURN 90 REM DOORHANDLER 100 GOSUB70:ONFC+1GOSUB1040,900,960,1000,1020:RETURN 110 REM SHAFTHANDLER 120 ONFC+1GOSUB1080,1100,1120,1140:RETURN 130 REM EXITHANDLER 140 ONFC+1GOSUB1170,1190,1210,1230:RETURN 150 REM LADDERHANDLER 160 LP=FC:ONFC+1GOSUB1260,1310,1340,1370:RETURN 170 REM COFFINHANDLER 180 ONFC+1GOSUB1400,1430,1460,1480:RETURN 190 REM PRINT BASIC VIEW 200 PRINT"[147][146] [205][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][206]" 210 PRINT" [205][165] [167][206] 220 [153]" (null)FN CLOSETHEN(null) 230 PRINT" [205][165] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164] [167][206] 240 [153]" (null)FN THEN(null) WAITSTEPFN THEN(null) 250 PRINT" [205][165][160] [167] [223] [146][169] [165] [160][167][206] 260 [153]" (null)FN THEN THEN(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)FN FN THEN(null) 270 PRINT" [205][165] [167] [167][205] [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][160][206][165] [165] [167][206] 280 [153]" FN THEN THEN(null) FNTHEN(null) WAITSTEPFNTHEN (null)FN FN CLOSETHEN 290 PRINT" [165] [167] [167][205] [165][167][167][205] [206][165][165][167] [206][165] [165] [167] 300 [153]" (null)USRUSR(null) THEN(null) FNTHENTHEN(null)(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)(null)FNFNTHEN (null)FN (null)USRUSR(null) 310 PRINT" [165][213][201][146][167] [167][160] [213][201][146][167][205][165][212][162][162][162][162][162][162][162][162][217][146][167][206][165][213][201][146] [160][165] [165][213][201][146][167] 320 [153]" FNMID$(null)WAITTHEN THEN MID$(null)WAITTHEN (null)(null)WAIT(null).LENLENLENLEN.WAIT(null)(null)(null)WAIT FNMID$(null)WAIT FN FNMID$(null)WAITTHEN 330 PRINT" [204][175][175][186] [167][160] [165][167][167][206][165][212][146][206][199][146] [200][146][205][217][146][167][205][165][165][167] [160][165] [204][175][175][186]" 340 PRINT" [206][165][160] [167] [167][206] [165][167][167][206][165][212][146][206][163][163][163][163][163][163][205][217][146][167][205][165][165][167] [205][165][160][165] [160][167][205] 350 [153]" (null)FN THENCLOSETHEN(null) FNTHENTHEN(null)(null)STEPTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)SQR(null)FNFNTHEN (null)FN FN THEN(null) 360 PRINT" [206][165][160][160][167][160][167][206] [165][167][167][206][163][163][163][163][163][163][163][163][163][163][163][163][205][165][165][167] [205][165] [165] [167][205] 370 [153]" (null)FN CLOSETHENCLOSETHEN(null) (null)SQR(null) (null)(null)SQR (null)FN FN CLOSETHEN(null) 380 PRINT" [206][165][160][160][167] [167][206][163][160] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [163][205][165] [165] [167][205] 390 [153]" (null)FNCLOSECLOSETHENCLOSETHEN FN FN THEN(null) 400 PRINT" [206][165][160][160][167] [206] [205][160][165][160] [167][205] 410 [153]" (null)(null)ANDANDSQR(null) (null)(null)ANDANDSQR(null)" 420 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR" 430 [153]" ";D$(CD);" CLOSE #CLOSE$CLOSE%CLOSE&CLOSE'CLOSE(CLOSE)CLOSE* + ";D$(CD);" WAIT"; 440 [153]L$(DD);:[142] 450 [143] EVERYTHING FROM HERE ON IS ALTERATIONS ON THE BASIC VIEWPOINT 460 [143] **LEFT SIDE INTERSECTING HALLS* 470 [143] **1ST LEFT BLOCK** 480 [153]"USR(null)CMDCMD";:[129]X[178].[164]19:[153]" THENCMDCMD";:[130]:[153]"ANDSQRCMDCMD WAITSTEP":[142] 490 [143] **2ND LEFT BLOCK** 500 [153]"";[163]8)"USR(null)CMDCMD";:[129]X[178].[164]8:[153]" THENCMDCMD";:[130]:[153]"ANDSQRCMDCMDWAITSTEP" 510 [142] 520 [143] **3RD LEFT BLOCK** 530 [153]"";[163]13)"(null)CMD";:[129]X[178].[164]3:[153]"THENCMD";:[130]:[153]"SQRCMDWAITSTEP" 540 [142] 550 [143] **4TH LEFT BLOCK** 560 [153]"";[163]16)"(null)CMDSQRCMDWAITSTEP"; 570 [142] 580 [143] *RIGHT SIDE INTERSECTING HALLS* 590 [143] *1ST RIGHT BLOCK 600 [153]"";[163]38)"(null)CMD";:[129]X[178].[164]19:[153]"FNCMD";:[130]:[153]"(null)CMDWAIT(null)":[142] 610 [143] *2ND RIGHT BLOCK 620 [153]""[163]30)"(null)USRCMDCMD";:[129]X[178].[164]8:[153]"FN CMDCMD";:[130]:[153]"(null)ANDCMDWAIT(null) 630 RETURN 640 REM *3RD RIGHT BLOCK 650 PRINT"";TAB(26)"[207][157]";:FORX=.TO3:PRINT"[165][157]";:NEXT:PRINT"[204][157][146][223]" 660 RETURN 670 REM *4TH RIGHT BLOCK 680 PRINT"";TAB(23)"[207][157][204][157][146][223]" 690 RETURN 700 REM MAIN HALL BRICK WALLS 710 REM *1ST WALL 720 PRINT"";:FORX=.TO3:PRINTTAB(6); 730 PRINT"[207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207]" 740 PRINTTAB(6)"[204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204]" 750 PRINTTAB(6)"[208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208]" 760 PRINTTAB(6)"[186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186]" 770 NEXT 780 PRINTTAB(6)"[207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207][183][208][207]" 790 PRINTTAB(6)"[204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204][175][186][204]" 800 RETURN 810 REM *2ND WALL 820 PRINT"";:FORX=.TO4:PRINTTAB(12);"[208][183][208][183][208][183][208][183][208][183][208][183][208][183][208][183]" 830 PRINTTAB(12);"[183][208][183][208][183][208][183][208][183][208][183][208][183][208][183][208]":NEXT:RETURN 840 REM *3RD WALL 850 PRINT"";:FORX=.TO4:PRINTTAB(15);"[168][168][168][168][168][168][168][168][168][168]":NEXT:RETURN 860 REM *4TH WALL 870 PRINT"";:PRINTTAB(18)"[166][166][166][166]":RETURN 880 REM OBJECTS IN MAIN HALL 890 REM *1ST DOOR 900 PRINT"";TAB(15)"::::::::::":PRINTTAB(15)":[146][173][173][173][173][173][173][173][173]:" 910 PRINTTAB(15)":[146][173][207][183][183][183][183][208][173]:":PRINTTAB(15)":[146][173][165][195][195][195][195][167][173]:" 920 PRINTTAB(15)":[146][173][204][175][175][175][175][186][173]:":PRINTTAB(15)":[146][173][173][173][173][173][173][173][194]:" 930 PRINTTAB(15)":[146][173][173][173][173][173][173][173][211]:" 940 FORX=.TO5:PRINTTAB(15)":[146][173][173][173][173][173][173][173][173]:":NEXT:RETURN 950 REM *2ND DOOR 960 PRINT"";:PRINTTAB(17)"::::::":PRINTTAB(17)":[146][173][173][173][173]:" 970 PRINTTAB(17)":[146][173][195][195][173]:":PRINTTAB(17)":[146][173][173][173][209]:" 980 FORX=.TO3:PRINTTAB(17)":[146][173][173][173][173]:":NEXT:RETURN 990 REM *3RD DOOR 1000 PRINT"";TAB(19)"[172][187]":FORX=.TO2:PRINTTAB(19)"[173][173]":NEXT:RETURN 1010 REM *4TH DOOR 1020 PRINT"";TAB(19)"[220][220]":RETURN 1030 REM INSIDE ROOM 1040 PRINT"":FORX=.TO21:PRINT"[214][214]"TAB(38)"[219]":NEXT 1050 PRINT"[214][206][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][146][205]";:GOSUB890:RETURN 1060 REM ****** SHAFTS ****** 1070 REM *1ST SHAFT 1080 PRINT"";TAB(12)"[169][207][183][183][183][183][183][183][183][183][183][183][183][183][208][223]";:RETURN 1090 REM *2ND SHAFT 1100 PRINT"";TAB(14)"[169][207][183][183][183][183][183][183][183][183][208][223]";:RETURN 1110 REM *3RD SHAFT 1120 PRINT"";TAB(16)"[169][207][183][183][183][183][208][223]";:RETURN 1130 REM *4TH SHAFT 1140 PRINT"";TAB(18)"[169][207][208][223]";:RETURN 1150 REM **** CEILING EXITS **** 1160 REM *1ST EXIT 1170 PRINT""TAB(12)"[223][204][175][175][175][175][175][175][175][175][175][175][175][175][186][146][169]":RETURN 1180 REM *2ND EXIT 1190 PRINT""TAB(14)"[223][204][175][175][175][175][175][175][175][175][186][146][169]":RETURN 1200 REM *3RD EXIT 1210 PRINT"";TAB(16)"[223][204][175][175][175][175][186][146][169]":RETURN 1220 REM *4TH EXIT 1230 PRINT"";TAB(18)"[223][204][186][146][169]":RETURN 1240 REM **** LADDERS **** 1250 REM *1ST LADDER 1260 PRINT"";:PRINTTAB(14)"[167]"TAB(25)"[165]" 1270 FORX=.TO6:PRINTTAB(14)"[167][197][197][197][197][197][197][197][197][197][197][165]":PRINTTAB(14)"[167]"TAB(25)"[165]" 1280 PRINTTAB(14)"[167]"TAB(25)"[165]":NEXT 1290 PRINTTAB(14)"[167][197][197][197][197][197][197][197][197][197][197][165]":PRINTTAB(14)"[167]"TAB(25)"[165]":RETURN 1300 REM *2ND LADDER 1310 PRINT"";:FORX=.TO6 1320 PRINTTAB(16)"[217][197][197][197][197][197][197][212]":PRINTTAB(16)"[217]"TAB(23)"[212]":NEXT:RETURN 1330 REM *3RD LADDER 1340 PRINT"";:FORX=.TO7 1350 PRINTTAB(18)"[172][162][162][187]":NEXT:RETURN 1360 REM *4TH LADDER 1370 PRINT"";:FORX=.TO2:PRINTTAB(19)"[171][179]":NEXT:RETURN 1380 REM **** COFFINS **** 1390 REM *1ST COFFIN 1400 PRINT"";TAB(11)"[169][206]--------------[205][223]" 1410 PRINTTAB(10)"[169][206]----------------[205][223]":RETURN 1420 REM *2ND COFFIN 1430 PRINT"";TAB(14)"[169][206]========[205][223]":PRINTTAB(14)"[207][163][163][163][163][163][163][163][163][163][163][208]" 1440 PRINTTAB(14)"[207][163][178][163][163][163][163][163][163][178][163][208]":RETURN 1450 REM *3RD COFFIN 1460 PRINT""TAB(16)"[169][206]====[205][223]":PRINTTAB(16)"[207][178][163][163][163][163][178][208]":RETURN 1470 REM *4TH COFFIN 1480 PRINT""TAB(17)"[169]====[223]":PRINTTAB(17)"[207][178][163][163][178][208]":RETURN 1490 REM ***LOOK ROUTINE *** 1500 CEM=FNTE(.):POKE648,CEM:PRINTL$(DD); 1510 GOSUB190 1520 FC=4:VL=FC:LP=FC:LV=CD-1+4*-(CD=1):RV=CD+1+4*(CD=4) 1530 EBM=FNCP(.):IFEBM>-1ANDEBM<256THEN1560 1540 IFFCTHENFC=FC-1:GOTO1530 1550 RETURN 1560 EL=FNCP(LV):ER=FNCP(RV) 1570 IF(DL(EBM,.))THEN1590 1580 GOSUB70:FC=FC-1:ON1-(FC<.)GOTO1530,1670 1590 IFDL(EL,.)ANDFC<4THENONFC+1GOSUB480,500,530,560 1600 IFDL(ER,.)ANDFC<4THENONFC+1GOSUB600,620,650,680 1610 FORD=1TO5:IF(DL(EBM,.)ANDBO(D))THENONDGOSUB180,120,140,160,100 1620 PRINT"[146]";:NEXT:FC=FC-1:IFFC>-1THEN1530 1630 IFDL(CL,2)=.THEN1670 1640 FORX=.TO8:POKEXR,22:POKEYR,.:POKEPR,.:SYSPLOT 1650 IF(DL(CL,2)ANDBO(X))THENPRINTTAB(X*4+3);OA$(X) 1660 NEXT 1670 GOSUB1700 1680 CSM=FNSW(.):POKE53272,(PEEK(53272)AND15)ORCSM:POKEFNPM(U),7:RETURN 1690 REM MONSTER DISPLAY 1700 IFFCANDVLTHENVL=VL-1 1710 D=61:POKEFNMP(1),D:POKEFNMP(2),D:POKEFNMP(3),D:POKEFNMP(5),D 1720 EL=.:ER=.:FORX=VLTO.STEP-1:FC=FNCM(X):IFDL(FC,1)=.THEN1760 1730 FC=DL(FC,1)-1:EL=(ELORSP(X+4)):IFX>LPTHENER=(ERORSP(X+4)) 1740 MB=SP(X)-1:FORD=1TOLEN(SB$(X,FC)):POKEFNMP(MB+D),ASC(MID$(SB$(X,FC),D,1)) 1750 POKEBC+SP(X)+D,CS(FC):NEXT 1760 NEXT:POKEV+21,EL:POKEV+27,ER:RETURN 1770 REM *VARIABLE/FUNCTION DECLARATION 1780 POKE56578,PEEK(56578)OR3:POKE56576,(PEEK(56576)AND252) 1790 POKE53272,PEEK(53272)AND15:POKE648,192:POKE53272,(PEEK(53272)AND240)OR12 1800 POKE53270,PEEK(53270)AND247 1810 PRINTCHR$(147):GOSUB3020:GOSUB5830 1820 DIMDL(255,2),BO(15),SP(7),SB$(3,7),D$(4),L$(6),OA$(8),CS(7),M(15),MH(15) 1830 DIMHC(2):X=.:D=.:FC=.:CL=17:CD=2:VL=.:EL=.:ER=.:VS=. 1840 D(1)=1:D(2)=16:D(3)=-1:D(4)=-16:CS(.)=9:CS(1)=2:CS(2)=6:CS(3)=9:CS(4)=4 1850 CS(5)=14:CS(6)=13:CS(7)=1:LP=.:P=.:L=1:LF=10 1860 SP(.)=.:SP(1)=4:SP(2)=6:SP(3)=7:SP(4)=15:SP(5)=48:SP(6)=64:SP(7)=128 1870 TGL=16:CSM=.:CEM=192:V=53248 1880 D$(1)="E":D$(2)="S":D$(3)="W":D$(4)="N" 1890 NJ=255:FJ=254:LJ=251:RJ=247:BJ=253:US=239:MU=237:U=. 1900 TL=388:DD=6:PLOT=65520:AR=780:XR=781:YR=782:PR=783:S=54272:BC=V+38 1910 RU=156:CU=142:ALL=511:HX=157:WL=17:CC=204:CR$=CHR$(13) 1920 DEF FNCP(X)=FC*D(CD)+(CL+D(X)):DEF FNSW(X)=(TGL-CSM) 1930 DEF FNTE(X)=(TL-CEM):DEF FNCM(X)=X*D(CD)+CL:DEF FNMP(X)=CEM*256+1016+X 1940 DEF FNPM(X)=55296+972+(X*2) 1950 FORX=.TO15:BO(X)=2^X:NEXT:L$(.)="":L$(1)="[155]":L$(2)="[152]":L$(3)="[151]" 1960 L$(4)="[151]":L$(5)="":L$(6)="[144]":HC(.)=2:HC(1)=8:HC(2)=10 1970 FORX=.TO255:READD:DL(X,.)=D:NEXT 1980 FORX=.TO8:READA$:OA$(X)=A$:NEXTX 1990 FORX=.TO15:READA:M(X)=A:NEXTX 2000 FORX=3TO.STEP-1:FORD=.TO7:READA$:SB$(X,D)=A$:NEXTD,X 2010 FORX=.TO8 2020 A=INT(RND(1)*93+34):IFDL(A,.)=.THEN2020 2030 DL(A,1)=M(X):M(X)=A:MH(X)=X*4+1:NEXT 2040 FORX=9TO15 2050 A=INT(RND(1)*96+142):IFDL(A,.)=.THEN2050 2060 DL(A,1)=M(X):M(X)=A:MH(X)=X*4+1:NEXT 2070 D=52288:FORX=.TO767:READA:POKED+X,A:NEXT:FORX=.TO63:POKE53055+X,.:NEXT 2080 POKEXR,23:POKEYR,1:POKEPR,.:SYSPLOT 2090 PRINT"[152]F1 START NEW GAME [152]F2 LOAD OLD GAME";:POKE198,. 2100 GETA$:IFA$=""THEN2100:IFA$<>CHR$(133)ORA$<>CHR$(137)THEN2100 2110 IFA$=CHR$(137)THENGOSUB3300 2120 POKEXR,24:POKEYR,.:POKEPR,.:SYSPLOT 2130 PRINTTAB(3)"[151]CREATED BY CLEVELAND M. BLAKEMORE " 2140 DL(CC,2)=BO(8) 2150 POKEV+21,.:POKEV+23,127:POKEV+29,15:POKEV,150:POKEV+1,193:POKEV+2,151 2160 POKEV+3,151:POKEV+4,119:POKEV+5,109:POKEV+6,167:POKEV+7,109:POKEV+8,164 2170 POKEV+9,174:POKEV+10,164:POKEV+11,133:POKEV+12,168:POKEV+13,152 2180 POKEV+14,172:POKEV+15,160 2190 REM *** JOYSTICK ROUTINE *** 2200 GOSUB4070:GOSUB1500:IT=TI+1000 2210 JOY=PEEK(56321) 2220 IFRND(1)>.93THENPOKES+1,RND(1)*7+2 2230 B=DL(CL,1):IFBANDRND(1)+B/100>.95THENGOSUB2590 2240 IFTI>ITTHENGOSUB3080:GOTO2370 2250 IFJOY=NJTHEN2210 2260 IF(DL(CL+D(CD),.)ANDBO(5+CD))THEN2280 2270 IFJOY=FJANDDL(CL+D(CD),.)THENCL=CL+D(CD):GOTO2360 2280 IF(DL(CL-D(CD),.)ANDBO(5))THEN2300 2290 IFJOY=BJANDDL(CL-D(CD),.)THENCL=CL-D(CD):GOTO2360 2300 IFJOY=RJTHENCD=CD+1:GOTO2350 2310 IFJOY=LJTHENCD=CD-1:GOTO2350 2320 IFJOY=USTHENONU+1GOSUB2710,2730,80,2810,2850,2910,2950,80,80:GOTO2210 2330 IFJOY=MUTHENGOSUB2430:GOSUB4070:GOTO2210 2340 GOSUB4030:GOSUB4070:GOTO2210 2350 CD=CD+((CD=5)*4)+((CD=.)*-4) 2360 GOSUB1500:GOTO2210 2370 ZZ=DD:VS=VS+1:IFVS=DD*6THENVS=.:DD=DD+((DD<6)*-1):IFDD=6THENL=(LAND254) 2380 IFZZ<>DDTHENPOKE648,FNTE(.):PRINTL$(DD);"[147]":POKE648,CEM 2390 LF=LF+((LF<60)*-.4):IF(LAND1)=.THENDD=6 2400 POKE53280,(LF<5)*-2+(LF>=5ANDLF<10)*-7 2410 GOTO2210 2420 REM ** COMMAND BAR ** 2430 POKE198,. 2440 IFCU=14THENCU=142:PRINTCHR$(9);CHR$(CU);CHR$(8);:GOSUB3450:POKEV+33,. 2450 FORX=.TO8:IF(LANDBO(X))THENPOKEFNPM(X),10 2460 NEXT:X=.:A=FRE(.):A=.:IF(LAND(BO(U)))THENPOKEFNPM(U),7 2470 IFPEEK(56321)<>NJTHEN2470 2480 POKEFNPM(X),1:IF(LANDBO(A))THENPOKEFNPM(A),10:GOTO2500 2490 POKEFNPM(A),2 2500 FORJY=1TO50:NEXT:JY=PEEK(56321):GETA$:IFA$=CHR$(140)THEN3210 2510 P=L:IFJY=RJTHENA=X:X=X+1+(X=8)*9 2520 IFJY=USAND(LANDBO(X))THENPOKEFNPM(U),10:U=X:POKEFNPM(X),7:GOSUB4020 2530 IFJY=USTHENRETURN 2540 IFJY=FJAND(DL(CL,2)ANDBO(X))THENL=(LORBO(X)):DL(CL,2)=DL(CL,2)-BO(X) 2550 IFJY=BJAND(LANDBO(X))THENL=(LAND(511-BO(X))):DL(CL,2)=DL(CL,2)ORBO(X):U=. 2560 IFL<>PTHENGOSUB4030:GOSUB1500:GOTO2440 2570 GOTO2480 2580 REM MONSTER HITS 2590 IFB=6THENU=.:DL(HX,2)=DL(HX,2)OR(LAND238):L=LAND273 2600 IFCU=14THENRETURN 2610 D=INT(RND(1)*3+1):POKE53281,HC(D-1):LF=LF-(B/((LAND4)+1))+-D 2620 FORT=1TO100:NEXT:POKE53281,.:IFLF<1THEN2650 2630 POKE53280,(LF<5)*-2+(LF>=5ANDLF<10)*-7:GOSUB4100:GOSUB4070:RETURN 2640 REM PLAYER KILLED 2650 FORX=.TO304:POKEV+33,XAND15:NEXT:POKEV+32,.:GOSUB3410:GOSUB6430 2660 POKE198,. 2670 GETA$:IFA$=""THEN2670 2680 IFA$="N"THENSYS64738 2690 POKEV+21,.:RUN 2700 REM TORCH 2710 IFDD=6AND(LAND1)THENVS=.:DD=1:GOSUB1500:RETURN 2720 REM SWORD 2730 IFB=.ORRND(.)+LF/100<.5THENGOSUB4100:RETURN 2740 POKE53281,5:FORT=1TO100:NEXT:POKE53281,.:FORX=.TO15 2750 ON1-(M(X)=.)GOTO2760,2790 2760 IFCL=M(X)THENMH(X)=MH(X)-ABS(RND(.)+((LAND2)*1)+LF/5) 2770 IFMH(X)>.THEN2790 2780 M(X)=.:DL(CL,1)=.:POKEV+21,PEEK(V+21)AND240:GOSUB3410:GOSUB2800 2790 NEXT:GOSUB4100:GOSUB4070:RETURN 2800 LF=LF+B/4:DL(CL,2)=(DL(CL,2)ORBO(B-1)):GOSUB1500:GOSUB4030:RETURN 2810 REM ** RING ** 2820 CU=RU-CU:PRINTCHR$(9);CHR$(CU);CHR$(8);:POKE53281,(CU=14)*-4 2830 GOSUB3450:GOSUB4070:RETURN 2840 REM ROPE 2850 IF(DL(CL,.)ANDBO(2))THENCL=CL+128:GOSUB3970:GOSUB1500:GOSUB4070:RETURN 2860 IF(DL(CL,.)AND24)=24AND(LAND384)=384THENDL(CL,2)=DL(CL,2)ORBO(8):L=LAND255 2870 IF(DL(CL,.)AND24)=24THENCL=CL-128:GOSUB3920:GOSUB1500:GOSUB4070:RETURN 2880 IFCL=WLANDL=ALLTHEN2990 2890 GOSUB4030:GOSUB4070:RETURN 2900 REM WAND 2910 IFB=6THENGOTO2740 2920 DL(CL+D(CD),.)=(DL(CL+D(CD),.)AND63):GOSUB3450:GOSUB4070 2930 RETURN 2940 REM ** KEY ** 2950 IF(DL(CL+D(CD),.)ANDBO(5))=.THENRETURN 2960 IF(DL(CL+D(CD),.)ANDBO(5+CD))THENDL(CL+D(CD),.)=DL(CL+D(CD),.)-BO(5+CD) 2970 GOSUB4100:GOSUB4070:RETURN 2980 REM VICTORY 2990 GOSUB6140 3000 GOSUB3450:GOTO2660 3010 REM *** LOAD CHARACTER SET *** 3020 FORX=.TO32:READA:POKE53200+X,A:NEXT:POKE56334,PEEK(56334)AND254 3030 POKE1,PEEK(1)AND251:SYS53200:POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1 3040 READA:IFA=-1THENRETURN 3050 FORX=.TO7:READD:POKE61440+A*8+X,D:NEXT:GOTO3040 3060 REM ** MONSTER MOVEMENT 3070 D=.:FC=8:IFCL>127THEND=9:FC=15 3080 P=6:D=.:FC=8:IFCL>127THEND=9:FC=15 3090 FORX=DTOFC:ON1-(M(X)=.)GOTO3100,3160 3100 IFCLM(X)+PTHENA=M(X)+D(2) 3120 IFCL>M(X)ANDCLM(X)-PTHENA=M(X)+D(3) 3140 IFA<.ORA>255THEN3160 3150 IFDL(A,.)ANDDL(A,1)=.THENDL(A,1)=DL(M(X),1):DL(M(X),1)=.:M(X)=A 3160 NEXT 3170 D=DL(CL,1):IFDTHENONDGOSUB3540,3540,3630,3630,3690,80,3860,3780:GOSUB4070 3180 POKEV+21,.:FC=.:GOSUB1700:IT=TI+1000:RETURN 3190 RETURN 3200 REM SAVE GAME ROUTINE 3210 PRINT"[146] SAVING"; 3220 OPEN1,8,15:PRINT#1,"S0:LASTDUNGEON":CLOSE1 3230 OPEN1,8,2,"LASTDUNGEON,U,W":FORX=.TO2:FORD=.TO255:PRINT#1,DL(D,X) CR$ 3240 NEXTD:PRINT".";:NEXTX:PRINT".";:FORX=.TO15:PRINT#1,M(X),CR$,MH(X),CR$ 3250 NEXTX:PRINT"."; 3260 PRINT#1,CL,CR$,CD,CR$,LF,CR$,L,CR$,U,CR$,DD,CR$,VS,CR$,HX,CR$,WL,CR$ 3270 PRINT#1,CC,CR$ 3280 CLOSE1:GOTO2430 3290 REM LOAD ROUTINE 3300 : 3310 F$="LASTDUNGEON" 3320 OPEN1,8,15:PRINT#1,"I0:":CLOSE1:OPEN1,8,2,F$+",U,R" 3330 FORX=.TO2:FORD=.TO255:INPUT#1,DL(D,X):NEXTD,X:FORX=.TO15 3340 INPUT#1,M(X),MH(X) 3350 NEXTX 3360 INPUT#1,CL,CD,LF,L,U,DD,VS,HX,WL,CC 3370 CLOSE1:OPEN1,8,15:INPUT#1,A,B$,C,D:CLOSE1 3380 IFATHENPRINT""TAB(8)A;B$;C;D 3390 FORT=1TO5000:NEXT:RETURN 3400 REM * SOMETHING DIED * 3410 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15:POKES+5,8:POKES+6,255 3420 POKES+4,21:F1=2:FORZ=1TO24:F2=80:POKES+1,F1:FORY=1TO5:POKES+15,F2 3430 F2=F2/1.1:NEXTY:F1=F1+9:NEXTZ:POKES+6,15:RETURN 3440 REM **SORCERY** 3450 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15 3460 POKES+5,8:POKES+6,255:POKES+4,23:F1=10 3470 FORZ=1TO30:F2=30 3480 POKES+1,F1 3490 FORY=1TO10:POKES+15,F2 3500 F2=F2*1.01:NEXTY 3510 F1=F1+1:NEXTZ 3520 POKES+6,15:RETURN 3530 REM **SPIDER** 3540 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15 3550 POKES+5,8:POKES+6,255:POKES+4,23:F1=11:F2=25 3560 FORZ=5TO50 3570 POKES+1,F1 3580 POKES+15,F2 3590 F2=F2*.97 3600 F1=F1+1:NEXTZ 3610 POKES+6,15:RETURN 3620 REM *** RATS *** 3630 FORP=STOS+24:POKEP,.:NEXT 3640 POKES+24,15:POKES+5,24:POKES+6,248 3650 POKE S+4,33 3660 FORP=17TO13STEP-1:POKES,P:FORT=125TO135:POKES+1,T:NEXTT,P:POKES+4,32 3670 RETURN 3680 REM **GOBLIN** 3690 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15 3700 POKES+5,8:POKES+6,255:POKES+4,23:F1=15:F2=15 3710 FORZ=1TO10: 3720 POKES+1,F1 3730 POKES+15,F2 3740 F2=F2*1.01 3750 F1=F1*1.3:NEXTZ 3760 POKES+6,15:RETURN 3770 REM ** NAGA ** 3780 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15 3790 POKES+5,8:POKES+6,255:POKES+4,23:F1=8:F2=4 3800 FORZ=1TO30: 3810 POKES+1,F1 3820 POKES+15,F2 3830 F2=F2*1.01 3840 F1=F1+1:NEXTZ 3850 POKES+6,15:RETURN 3860 REM *** SERPENTS *** 3870 FORP=STOS+24:POKEP,.:NEXT 3880 POKES+24,15:POKES+5,155:POKES+6,245 3890 POKE S+4,129:FORP=50TO55:POKE S,D 3900 FORT=35TO55:POKES+1,T:NEXTT,P:POKES+4, 128:FORT=1TO 100:NEXT:RETURN 3910 REM * SHAFT UP * 3920 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15 3930 POKES+5,8:POKES+6,255:POKES+4,23 3940 FORF1=4TO18STEP2:POKES+15,F1 3950 FORF2=10TO180STEP2:POKES+1,F2:NEXTF2,F1:POKES+6,15:RETURN 3960 REM * SHAFT DOWN * 3970 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15 3980 POKES+5,8:POKES+6,255:POKES+4,23 3990 FORF=15TO8STEP-1 4000 FORF1=18TO10STEP-2:POKES+15,F1 4010 FORF2=12TO4STEP-1:POKES+1,F2:POKES+15,F:NEXTF2,F1,F:POKES+6,15:RETURN 4020 REM * BEEP * 4030 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15 4040 POKES+5,96:POKES+6,96:POKES+4,23:POKES+2,85:POKES+1,36 4050 FORF=1TO10:NEXT:POKES+6,15:RETURN 4060 REM *** SINISTER MUSIC *** 4070 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15 4080 POKES+1,10:POKES,5:POKES+5,129:POKES+6,129:POKES+4,21:RETURN 4090 REM ** SLASH ** 4100 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15 4110 POKES+1,25:POKES,5:POKES+5,20:POKES+6,20:POKES+4,129:FORT=1TO75:NEXT 4120 POKES+4,128:RETURN 4130 REM ML PROGRAM 4140 DATA 169,0,133,251,133,253,169,208,133,252,169,240,133,254,162,8 4150 DATA 160,0,177,251,145,253,136,208,249,230,252,230,254,202,208,240,96 4160 REM CHARACTER DATA 4170 DATA035,024,060,110,110,110,110,110,110 4180 DATA036,255,199,231,129,000,060,126,255 4190 DATA037,255,060,024,255,219,153,153,024 4200 DATA038,024,024,060,102,102,060,000,000 4210 DATA039,000,126,127,127,112,126,000,255 4220 DATA040,110,110,110,110,110,110,110,110 4230 DATA042,060,060,255,153,060,060,060,060 4240 DATA081,255,231,231,231,231,219,195,231 4250 DATA083,231,195,153,189,165,153,195,255 4260 DATA086,027,031,031,027,059,123,219,155 4270 DATA088,126,102,102,126,024,024,030,030 4280 DATA091,216,248,248,216,220,222,219,217 4290 DATA092,175,088,171,088,168,088,168,088 4300 DATA102,219,054,219,102,219,054,219,102 4310 DATA104,024,255,192,192,192,255,024,024 4320 DATA107,031,024,031,024,031,024,031,024 4330 DATA108,255,182,255,191,240,176,247,176 4340 DATA109,255,129,255,129,255,255,129,255 4350 DATA115,248,024,248,024,248,024,248,024 4360 DATA123,255,109,255,253,015,013,239,013 4370 DATA163,255,159,159,239,247,251,253,255 4380 DATA164,239,239,239,239,239,199,239,239 4390 DATA165,189,129,153,189,165,129,195,231 4400 DATA166,255,255,231,219,219,231,255,255 4410 DATA167,207,183,123,195,129,000,255,255 4420 DATA168,199,239,131,239,239,239,239,239 4430 DATA169,199,215,199,239,239,239,231,231 4440 DATA170,129,195,231,195,153,016,153,195 4450 DATA171,255,255,102,000,090,000,255,255 4460 DATA173,255,129,255,255,231,231,255,255 4470 DATA186,255,231,255,231,255,231,255,231 4480 DATA189,255,129,255,239,255,129,255,239 4490 DATA197,255,000,255,255,255,255,000,255 4500 DATA220,250,021,218,021,026,021,026,021 4510 DATA230,054,177,129,108,108,153,153,102 4520 DATA242,255,255,189,189,129,255,219,255,-1 4530 DATA .,.,.,.,.,.,.,.,.,.,.,.,.,.,.,. 4540 DATA .,8,2,1,2,1,.,1,1,1,.,1,352,4,2,. 4550 DATA .,1,.,16,.,1,.,1,.,1,32,1,.,2,2,. 4560 DATA .,1,.,1,1,2,16,1,.,1,.,1,.,.,1,. 4570 DATA .,4,1,2,.,1,.,1,2,1,1,2,1,.,4,. 4580 DATA .,1,.,1,.,1,1,1,.,.,.,.,1,.,.,. 4590 DATA .,2,1,1,1,1,32,1,1,4,1,2,1,1,34,. 4600 DATA .,.,.,.,.,.,.,.,.,.,.,.,.,.,.,. 4610 DATA .,2,1,1,2,16,2,1,1,1,.,2,2,2,2,. 4620 DATA .,1,.,1,.,1,.,1,.,1,1,1,1,984,2,. 4630 DATA .,2,1,1,.,1,2,1,2,1,.,32,2,2,2,. 4640 DATA .,.,.,2,.,1,.,1,.,1,.,129,.,.,.,. 4650 DATA .,24,1,1,1,1,.,2,1,1,.,1,65,.,24,. 4660 DATA .,1,.,.,1,.,1,1,.,1,.,1,.,.,1,. 4670 DATA .,1,2,2,1,2,1,.,.,168,.,129,2,1,1,. 4680 DATA .,.,.,.,.,.,.,.,.,.,.,.,.,.,.,. 4690 REM OBJECT SHAPE STRINGS 4700 DATA "[145][219][146][157][205][205][157][205][205]" 4710 DATA "[145][145]#[157]([157]([157]*" 4720 DATA "[145][223][169][157][157][157][157][194][146]$$[194][157][157][157][157][194][178][178][194]" 4730 DATA "&" 4740 DATA "[202][201][157][157][166][166][166]" 4750 DATA "[145]*[157][146][194][157][194]" 4760 DATA "[157][216]" 4770 DATA "[145][145][157][157][157][223] [146][169][157][157][157][169][163][223][157][157][157][157][169] [146]'[160][223][157][157][157][157][157][146][223][163][163][163][146][169]" 4780 DATA "[157][157][223][169][223][169][157][157][157][157]====" 4790 REM MONSTER TYPES 4800 DATA 1,1,2,2,3,3,4,5,5,6,6,6,7,7,7,8 4810 REM MONSTER STRING SHAPE DATA 4820 DATA 1,1,2,2,3,4,<,< 4830 DATA 1,1,2,2,3,4,<,< 4840 DATA 1,1,2,2,3,65,":;",":;" 4850 DATA 1,1,2,2,3,65,":978",":978" 4860 REM MONSTER SPRITE DATA 4870 DATA000,000,000,000,000,000,000,000 4880 DATA000,000,000,000,004,000,032,006 4890 DATA000,096,005,060,160,008,255,016 4900 DATA016,255,008,019,255,200,036,255 4910 DATA036,009,255,144,018,255,072,037 4920 DATA126,164,042,060,084,036,024,036 4930 DATA042,060,084,004,090,032,002,126 4940 DATA064,001,090,128,000,036,000,000 4950 DATA000,000,000,056,255,000,067,255 4960 DATA192,055,255,224,015,255,240,015 4970 DATA255,240,015,255,240,014,255,176 4980 DATA014,127,048,030,190,184,062,221 4990 DATA188,127,107,126,252,255,159,120 5000 DATA221,143,120,073,007,056,127,003 5010 DATA024,093,003,012,008,030,030,000 5020 DATA047,053,000,010,085,000,020,000 5030 DATA052,066,015,024,102,031,044,090 5040 DATA033,006,102,001,003,090,001,007 5050 DATA165,227,011,219,211,021,231,175 5060 DATA046,231,119,089,126,189,113,219 5070 DATA153,096,165,001,113,153,129,107 5080 DATA126,193,102,195,097,037,129,161 5090 DATA015,000,241,015,000,241,010,000 5100 DATA081,014,000,113,058,000,092,220 5110 DATA000,120,000,000,132,000,001,074 5120 DATA016,001,002,040,003,135,040,005 5130 DATA134,144,014,205,144,031,123,208 5140 DATA061,183,248,061,207,228,041,183 5150 DATA100,041,207,044,041,255,056,026 5160 DATA001,024,003,207,000,003,183,000 5170 DATA007,207,000,005,122,128,011,239 5180 DATA128,013,123,064,013,086,192,220 5190 DATA000,248,000,001,004,000,002,002 5200 DATA000,002,138,000,002,002,000,002 5210 DATA002,000,002,003,006,003,007,009 5220 DATA003,143,009,003,223,009,013,254 5230 DATA198,030,253,230,063,123,246,127 5240 DATA183,255,191,207,247,223,183,250 5250 DATA159,207,242,159,255,242,151,255 5260 DATA210,103,255,204,002,000,064,231 5270 DATA003,231,192,007,219,224,007,189 5280 DATA224,015,219,224,015,231,240,015 5290 DATA255,240,015,255,240,015,255,240 5300 DATA015,255,240,015,255,240,015,255 5310 DATA240,015,255,240,031,255,248,031 5320 DATA255,248,031,127,216,061,239,124 5330 DATA047,191,236,058,250,172,045,149 5340 DATA246,095,086,174,164,221,202,102 5350 DATA000,000,254,000,001,127,000,002 5360 DATA223,000,004,207,000,011,103,000 5370 DATA021,191,000,043,215,000,087,223 5380 DATA000,087,224,000,087,243,000,091 5390 DATA251,000,045,255,000,022,255,000 5400 DATA011,000,000,005,191,000,002,192 5410 DATA000,001,063,000,000,213,000,000 5420 DATA090,000,000,045,000,000,042,220 5430 DATA127,000,000,254,128,000,251,064 5440 DATA000,243,032,000,230,208,000,253 5450 DATA168,000,235,212,000,251,234,000 5460 DATA007,234,000,207,234,000,223,218 5470 DATA000,255,180,000,255,104,000,000 5480 DATA208,000,253,160,000,003,064,000 5490 DATA252,128,000,171,000,000,090,000 5500 DATA000,180,000,000,084,000,000,220 5510 DATA061,188,000,042,084,000,061,188 5520 DATA000,042,084,000,061,188,000,062 5530 DATA124,000,045,180,000,061,188,000 5540 DATA042,084,000,045,180,000,062,124 5550 DATA000,061,188,000,042,084,000,061 5560 DATA188,000,042,084,000,045,180,000 5570 DATA058,092,000,045,180,000,021,090 5580 DATA000,022,173,000,011,086,128,239 5590 DATA002,189,064,003,195,192,002,189 5600 DATA064,002,195,064,003,189,194,002 5610 DATA195,065,003,189,193,002,067,067 5620 DATA005,166,199,010,221,074,021,106 5630 DATA156,038,182,148,091,087,092,108 5640 DATA171,182,087,085,202,088,169,170 5650 DATA103,214,106,089,069,214,039,255 5660 DATA236,026,105,088,007,255,240,028 5670 DATA007,231,224,011,126,208,021,060 5680 DATA168,046,255,116,095,126,250,095 5690 DATA129,250,095,189,250,047,255,244 5700 DATA020,255,040,011,000,208,004,255 5710 DATA032,003,000,192,002,230,064,003 5720 DATA153,192,003,219,192,002,036,064 5730 DATA002,219,064,003,036,192,002,219 5740 DATA064,003,036,192,002,219,064,000 5750 DATA000,252,000,001,122,000,003,183 5760 DATA000,003,207,000,001,254,000,000 5770 DATA252,000,000,120,000,000,120,000 5780 DATA000,120,000,000,120,000,000,120 5790 DATA000,000,120,000,000,120,064,000 5800 DATA120,032,000,120,032,000,252,096 5810 DATA001,255,192,015,000,224,031,255 5820 DATA240,024,003,240,015,255,224,221 5830 PRINTCHR$(8)CHR$(142)CHR$(19):PRINT"[147][146] [151][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]" 5840 PRINT" [168] [168]" 5850 PRINT" [168] np[146] [169][146]o[151]n[187][172][151][146]n[184] [151][146]n[184] [146][184][151]n[162] [185][185] [151][146]n [146] [151][168]" 5860 PRINT" [168] p[170] [169] [146][165][151]p[161][146][161][151]p  [146][151][146]n[160][146] [151]p [160][151][146]dnn[165][182][151][146]n[188] [151][168]" 5870 PRINT" [168] [170][170] [146][165][151][170][161][146][161][151][170]  [151][146]m [146] [151][170]  [151][146][163] [165] [146] [151][168]" 5880 PRINT" [168] [170][170] [146][169] [146][165][151][170][161][146][161][151][170]  [146] [151]m [146] [151][170]  [151][146]n l n [146] [151][168]" 5890 PRINT" [168] [170][186] [151][146][167]  [146]l[151][170][190][188][151][146][170][185] [146] [162] [146][162][151][170][162] [146][162][162] [146] [188][146][162] [146] [151][168]" 5900 PRINT" [168] n n[167]n nn nn n n nn nn n [168]" 5910 PRINT" [168] [163][163] [163][163] [163][163] [163][163] [163][163][163] [163][163][163][163][163] [163][163][163] [168]" 5920 PRINT" [168] [156][162][162][162][162][162][162][162][162][162] [158][172][187][146] [172][146][190] [156][162][162][162][162][162][162][162][162][162][162][162] [151][168]" 5930 PRINT" [168] [184][184][184][184][184][184][184][184][184] [158][188][190][146] [172][146][190] [184][184][184][184][184][184][184][184][184][184][184] [151][168]" 5940 PRINT" [168] [168]" 5950 PRINT" [168] [168]" 5960 PRINT" [168] n[156] [146] [169] [151][146]n[156] [151][146]n[156] [151][146]n[156] [146] [151]n[156] [151][146]n[156] [151][146]n[156] [146] "; 5970 PRINT"[151][168]" 5980 PRINT" [168] [167]nn[156] [169] [151][146]n[165][156][160][146] [151]n[165][156] [146] [151]n[156] [151][146][165][156][160][146] [151][165][156] [146]  [146] [146] [151][168]" 5990 PRINT" [168] [163][165][156] [146] [151][165][156][160] [146] [151][165][156] [146][169][151][165][156][160][146] [151][165][156] [146]  [146]  [146] [151][168]" 6000 PRINT" [168] [165][156] [146][169] [146] [151][165][156] [151][146]n [165][156] [151][146]n[156][151][146][165][156] [146] [151][165][156][160][146]  [151][146]mn[156] [146] "; 6010 PRINT" [151][168]" 6020 PRINT" [168] [165][156] [151][146]n[165][156] [146] [151][165][156] [146] [151][165][156] [151][146]mn[156] [151][146][165][156] [146] [151][165][156] [146]  [146] [151][165][156] [146]"; 6030 PRINT" [151][168]" 6040 PRINT" [168] n[156] [146] [151][165][156] [151][146][165][156] [151][146][165][156] [146] [151][165][156] [151][146][165][156] [151][146][165][156] [146]  [146] [151][165][156] [146]"; 6050 PRINT" [151][168]" 6060 PRINT" [168] [167]n n n nn nnn nnn nnnnn nn [168]" 6070 PRINT" [168] [163][163] [163][163] [163][163][163] [163] [163] [163][163][163] [163] [163] [163] [168]" 6080 PRINT" [168] [168]" 6090 PRINT" [168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]" 6100 PRINT"  [146] PLEASE WAIT.....PREPARING DUNJON! [151] " 6110 PRINT"  [C] 1988 NEMESIS SOFTWARE "; 6120 PRINT""; 6130 RETURN 6140 PRINT"[147][146]iuiuiuiuiuiuiuiuiuiuiuiuiuiuiuiuiuiuiuiu"; 6150 PRINT"jkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjkjk"; 6160 PRINT"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"; 6170 PRINT" [180] [180] [180] [180] [180] [180] [180][146] [160][165][146] [165] [165] [165][165] [165][160][165][162][164]"; 6180 PRINT" [146] [180][161][180][146] [180][146] [180][146]  [180][146]  [146]  [146] [180][146] [160][165][146] [165][146]  [146]  [146] [165][165][161][165][146][160][165]" 6190 PRINT" [146] [180][161][180][146]  [180][146][188] [180] [146][169][180][175] [146]  [146] [180][146] [160][165][146] [165] [146]  [146] [165][165][161][165][146] [160][165] "; 6200 PRINT" [146] [180][161][180][146]  [180][146]  [180][146][180][146]  [146]  [146] [165][146]  [165][146] [165][146] [160][146]  [146] [165][165][161][165][146]  [146] "; 6210 PRINT" "; 6220 PRINT" [180][190][180][146]  [180] [180][146] [180][146] [160][146]  [146] [180] [165] [165][146]  [146]  [146] [165][165][190][180][146]  [165] "; 6230 PRINT"[146][150][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]"; 6240 PRINT"[151][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]"; 6250 PRINT"[168][168][168][168][168][168] [168][168][168][168][168][168][168][168][168]"; 6260 PRINT"[168][168][168][168][168][168] [156]YOU HAVE SURVIVED THE [151][168][168][168][168][168][168][168][168][168]"; 6270 PRINT"[168][168][168][168][168][168] [156]MINES OF MERLIN! [151][168][168][168][168][168][168][168][168][168]"; 6280 PRINT"[168][168][168][168][168][168] [168][168][168][168][168][168][168][168][168]"; 6290 PRINT"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]"; 6300 PRINT"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]"; 6310 PRINT"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]"; 6320 PRINT"[168][168] [160][160][160][160][160][160][160][160][160] [151] [168][168][168]"; 6330 PRINT"[168][168]#[158]THE CROWN OF [154]KING ARTHUR [158]HAS BEEN[151]#[168][168][168]"; 6340 PRINT"[168][168]( [158] RETURNED TO ITS PROPER RESTING [151]([168][168][168]"; 6350 PRINT"[168][168]([158]PLACE IN THE [153]SECRET DRUID NEMETON[151]([168][168][168]"; 6360 PRINT"[168][168]( [158]IN IRELAND!!! [151]([168][168][168]"; 6370 PRINT"[168][168]* *[168][168][168]"; 6380 PRINT"[168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168][168]"; 6390 PRINT"[168][168] DO YOU WISH TO PLAY AGAIN?[Y/N] [151][168][168][168][168]"; 6400 POKE241,PEEK(241)OR128 6410 PRINT"[145]":PRINT"[148][168]";:PRINT""; 6420 RETURN 6430 POKEV+21,.:PRINT"[147][146] ALAS,WARRIOR...THOU HAST BEEN" 6440 PRINT" [169] [146]  [146]  [146]  [146]  [146]  [146]  " 6450 PRINT"  [146]  [146] [160][146]  [146]  [182][146]  [146]  [146]  " 6460 PRINT"  [146]  [146]  [160][146]  [182][146]  [146]  [146]  " 6470 PRINT"  [146] [160][160][146] [160][146] [160][146] [160][182][146] [160][160][146]  [146]  " 6480 PRINT" [169] [146]  [160][146] [160][146] [160][146] [160][182][146] [160][160][146]  [146]  " 6490 PRINT" [169] [146][169]  [146]  [146]  [146]  [182][146] [160][160][146]  [146] [175][175]" 6500 PRINT"  [146][169]  [146]  [146] [160][146]  [146]  [160][146]  [146]  " 6510 PRINT" [RATHER BRUTALLY,I MIGHT ADD]" 6520 PRINT 6530 PRINT" [156] THE ADVENTURERS UNION FOUND YOUR " 6540 PRINT"  SOMEWHAT DISFIGURED REMAINS STUFFED " 6550 PRINT"  HASTILY IN ONE OF THE COFFINS INSIDE" 6560 PRINT"  THE MINE,AND RETURNED YOUR BODY TO " 6570 PRINT"  YOUR RELATIVES FOR A BURIAL FITTING " 6580 PRINT"  TO A KNIGHT ERRANT SLAIN WHILE ON A " 6590 PRINT"  NOBLE AND ENDEARING QUEST..... " 6600 PRINT 6610 PRINT" IF YOU ARE ABLE,I THINK I COULD" 6620 PRINT" RESURRECT YOU.WOULD YOU LIKE TO" 6630 PRINT" TRY YOUR LUCK IN THE MINES AGAIN?" 6640 PRINT 6650 PRINT" TYPE [Y] FOR YES TO CONTINUE," 6660 PRINT" OR [N] FOR NO TO END GAME AND" 6670 PRINT" [159]RETURN TO COMMODORE BASIC 2.0"; 6680 PRINT"";:RETURN